---
title: "Startup Success Prediction Dashboard"
author: "Helena Schick"
output:
flexdashboard::flex_dashboard:
orientation: rows
social: menu
source_code: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
library(plotly)
library(plyr)
library(readr)
path <- "/Users/helena.schick/Documents/GitHub/r-sql-startup-success/df.csv"
df <- read_csv(path)
```
Column {data-width=650}
-----------------------------------------------------------------------
### Chart A
```{r}
p <- ggplot(df, aes(x = status, y = age_first_funding_year, color = status)) +
geom_boxplot() +
labs(title = "Age first funding, if successful or not") +
theme_bw(base_size = 12) +
theme(axis.text.x = element_text(angle = 90, vjust = 0.5))
ggplotly(p)
```
Column {data-width=350}
-----------------------------------------------------------------------
### Chart B
```{r}
#
```
### Chart C
```{r}
#
```